home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / workbench / explorer / install_explorer < prev    next >
Text File  |  2000-03-11  |  24KB  |  618 lines
  1. ; Installer script for the Diz-Explorer program
  2. ;******************************************************************************
  3. ;     _  _      ____
  4. ;    / \/ \    /___ |   
  5. ;   / /\/\ \     _ ||
  6. ;  / / /\ \ \   |_|||
  7. ; / / /  \ \ \ ____||
  8. ;/_/ /_/\_\ \_\\____|
  9. ;
  10. ; $VER: 3.00_Diz-Explorer_Installer (Nov-24-1997) 
  11. ; 
  12. ; If you wish to use any part of this installer you must ask us.
  13. ;
  14. ; Installer    by Jochen Grus & Martin Gentile ©1996-1999 
  15. ; Diz-Explorer by Jochen Grus ©1996-2000 
  16. ; Last Update: DEC-26-1998
  17. ;---------------------------------------
  18. ;        This could be your logo! 
  19. ;           __  __      _______ 
  20. ;          /  \/  \    /_____/ \
  21. ;         /  \  /  \  /  \  /  /
  22. ;        /  / \/ \  \/ /\ \/  / 
  23. ;       /  /  /  -\  \ \/ /  /  
  24. ;      /  /  /  __    \__/  /   
  25. ;      \_/  /__/  \_/\_____/    
  26. ;
  27. ;       Explorer Version 5.00
  28. ;
  29. ;          © 1996-2000 by: 
  30. ;
  31. ;   Jochen Grus and Martin Gentile
  32. ;---------------------------------------
  33. ;******************************************************************************
  34. (procedure Explor (set JOH 1) ( (while (< JOH 4444)  (set JOH (+ JOH 1)) )  ) )
  35.  
  36. (procedure InformX
  37. (working (cat "\n\n"
  38.               " LHA  TAR\n"
  39.               " LZX  TGZ\n"
  40.               " DMS  EXE\n"
  41.               " ARJ  SIT\n"
  42.               " ARC  LZH\n"
  43.               " ZOO  RAR\n"
  44.               " ZIP  LZ\n"
  45.               " \n"
  46.          )           
  47. )
  48. )
  49. (procedure InformY
  50. (working (cat "\n\n"
  51.               "\n"
  52.               "\n"
  53.               "Diz-Explorer Pro Version 5.00\n"
  54.               "\n"
  55.               "by\n"
  56.               "\n"
  57.               "   Jochen Grus & Martin Gentile   \n"
  58.               "\n"
  59.          )           
  60. )
  61. )
  62. (InformY)
  63.  
  64. (Explor)(Explor)
  65. (InformX)(Explor)
  66. (InformY)(Explor) (InformX)(Explor)
  67. (InformY)(Explor) (InformX)(Explor)
  68. (InformY)(Explor) (InformX)(Explor)
  69. (InformY)(Explor) (InformX)(Explor)
  70. (InformY)(Explor) (InformX)(Explor)
  71. (InformY)(Explor) (InformX)(Explor)
  72. (InformY)(Explor) (InformX)(Explor)
  73. (InformY)(Explor) (Explor) (Explor)
  74.  
  75. ;*** System Stuff ***
  76. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  77. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  78. (set osver (/ (getversion "LIBS:version.library") 65536))
  79. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  80. (set fastmem (- totmem graphmem))
  81.  
  82. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  83. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  84. (if (= osver 41) (set workbench "3.5"))
  85.  
  86. (set cpu (database "cpu"))
  87. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  88. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  89. (if (= cpu 68040) (set #cpu 4)) 
  90. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  91. (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 6) )
  92.  
  93. (if (> cpu 68010)  (set #fpuGuess 0)  (set #fpuGuess 1) )
  94.    
  95. (set vernum1 (getversion "Explorer")) (set ver2 (/ vernum1 65536)) 
  96. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Explorerver (cat ver1 "4.6" rev1))
  97.  
  98. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  99. (set lan 0)
  100.  
  101. (if (= "english"     lanfound) (set lan 0))
  102. (if (= "deutsch"     lanfound) (set lan 1))
  103. (if (= "italiano"    lanfound) (set lan 2)) 
  104. (if (= "francais"    lanfound) (set lan 3)) 
  105. (if (= "svenska"     lanfound) (set lan 4)) 
  106. (if (= "norsk"       lanfound) (set lan 5)) 
  107. (if (= "nederlands"  lanfound) (set lan 6)) 
  108. (if (= "dansk"       lanfound) (set lan 7)) 
  109.  
  110. (set #English       "English")
  111. (set #Deutsch       "Deutsch")
  112. (set #Italiano     "Italiano")
  113. (set #Francais     "Francais")
  114. (set #Svenska       "Svenska")
  115. (set #Norsk           "Norsk")
  116. (set #Nederlands "Nederlands")
  117. (set #Dansk           "Dansk")
  118.  
  119. (set mfound 0) (set newicon1 1) 
  120. (set keeper 1) (set firsttime 0)
  121.  
  122. ;***********************************************************************
  123. ; The English Installation Strings for the Diz-Explorer
  124. ;***********************************************************************
  125. (set #about (cat "\n\n\n\nWelcome to the Diz-Explorer PRO Version " Explorerver "\n\n\nCopyright © 1996-2000 by\n\nJochen Grus & Martin Gentile\n") )
  126. (set #about2 (cat "\n\n\n\n Contact:\n\n Jochen.Grus@rhein-main.net \n\n or\n\n Martin.Gentile@wiesbaden.netsurf.de\n\n\n\n") )
  127. (set #about3 (cat "\n\n\n\n Updates & Stuff at:\n\n www.nextron.ch/~force/\n\n or\n\nhttp://www.geocities.com/SiliconValley/Grid/8661/") )
  128. (set #aboutpacker (cat "\n\n\n\nNow you should copy all packers to the >C< directory. Before the installation you should check the versions! ") )
  129. (set #aboutdevices (cat "\n\n\n\nNow you should copy all devices to the >DEVS< directory. Before the installation you should check the versions! ") )
  130. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N I N G -               Installation found the following file in the C-directory: LHACHECK. You should delete this file because it has the BBS-Trojan VIRUS!!! ") )
  131. (set #aboutdatatype1 (cat "\n\n\n\n- W A R N I N G -\n\n Installation found Datatypes.library in Libs:\n\n V45.4. or higher!  If the size of this file is 32748 (Normal 27kb) bytes you should know that this one a VIRUS!") )
  132. (set #askcpu "\nThe installer has found the following CPU:\n")
  133. (set #askcpu2 "\nThe installer program has found a CPU. The installer should show correctly what kind of cpu is installed...\n")
  134. (set #whereExplorer "Where do you wish to install the Diz-Explorer. A directory called 'Explorer' will be created if one is not there. If a copy of Explorer is found it will be backed up.")
  135. (set #filethere1 "\n\nThe installer has found an Explorer version ")
  136. (set #filethere2 " at ")
  137. (set #filethere3 "\n\nThe file will be renamed to ")
  138. (set #filethere4 " and it will then be moved to ")
  139. (set #backuptoXXX "Back-UP to file named 'Diz-Explorer.")
  140. (set #copyover "Copy Over Old Version")
  141. (set #oktodelete1 "\nIs it ok to delete the older Diz-Explorer binary so that the Explorer Directory can be made?\n")
  142. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Explorer binary so that the Explorer Directory can be made?\n")
  143. (set #Explorerfound "\nThe Installer has found a copy of Explorer already installed. What do you want to do?\n")
  144. (set #newicon "\nDo you wish to copy over The Diz-Explorer Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  145. (set #nonewicon  "No  - ToolTypes already set.")
  146. (set #yesnewicon "Yes - Copy over the old DIZ-Explorer Icon.")
  147. (set #whatcat "\nSelect the Explorer Language catalog you wish to install.\n")
  148. (set #wherecat "\nWhere do you wish to install the Explorer Language Catalog? There is no need for it yet. Default is ")
  149. (set #catnofind "Can not find this catalog in this Explorer archive. No need for it yet.")
  150. (set #whatdocs "\nWhat Explorer documentation would you like to install?\n")
  151. (set #wheredocs "Where would you like the Explorer documentation you selected to be installed?")
  152. (set #byebye (cat "\nDiz-Explorer Install Complete!\n\n" ))
  153. (set #setup_help
  154.         (cat
  155.             "Explorer needs an Assign in main directory to "
  156.             "properly setup. If you skip this pass you MUST "
  157.             "manually enter it later in your User-StartUp or "
  158.             "in a shell prior to run Explorer."
  159.         )
  160.     )
  161.  
  162.  
  163.  
  164. ;***********************************************************************
  165. ; The German Installation Strings for the Diz-Explorer
  166. ;***********************************************************************
  167.  
  168. (if (= lan 1)
  169. (
  170.  (set po 1)
  171.  
  172. (set #about (cat "\n\n\n\nWillkommen zum DIZ-Explorer PRO Version " Explorerver "\n\n\nCopyright © 1996-2000 by\n\nJochen Grus & Martin Gentile\n") )
  173. (set #about2 (cat "\n\n\n\n Kontakt:\n\n Jochen.Grus@rhein-main.net \n\n or\n\n Martin.Gentile@wiesbaden.netsurf.de\n\n\n\n") )
  174. (set #about3 (cat "\n\n\n\n Updates & Stuff at:\n\n www.nextron.ch/~force/\n\n or\n\nhttp://www.geocities.com/SiliconValley/Grid/8661/") )
  175. (set #aboutpacker (cat "\n\n\n\nJetzt sollten Sie alle Packer in das >C< Verzeichnis installieren. Man sollte vorher die Versionen überprüfen! Es sind aber alle aktuellen Packer hier vorhanden! ") )
  176. (set #aboutdevices (cat "\n\n\n\nJetzt sollten Sie alle Devices in das >Devs< Verzeichnis installieren. Man sollte vorher die Versionen überprüfen! Es sind aber alle aktuellen Devices hier vorhanden! ") )
  177. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N U N G -                                                                     Installation hat folgende Datei im C-Verzeichnis gefunden: LHACHECK. Sie sollten diese Datei entfernen, da es den VIRUS BBS-Trojan enthält!!! ") )
  178. (set #aboutdatatype1 (cat "\n\n\n\n- W A R N U N G -\n\n Installation hat folgende Datei im LIBS-Verzeichnis gefunden: DataTypes.library Version 45.4. Sie sollten diese Datei nach einen Virus überprüfen, wenn die Dateigröße 32748 bytes hat würde ich sie sofort löschen! ") )
  179. (set #askcpu "\nFolgender Prozessor wurde vom Installer erkannt:\n")
  180. (set #askcpu2 "\nDer Installer hat einen Prozessor gefunden. Es müßte den richtigen Typ korrekt erkannt haben! \n")
  181. (set #whereExplorer "Wohin wollen Sie den DIZ-Explorer installieren ? Ein Verzeichnis 'Explorer' wird erzeugt, wenn es nicht existiert. Wenn bereits eine Explorer Version vorhanden ist, kann diese gesichert werden.")
  182. (set #filethere1 "\n\nDas Installationsprogramm hat eine Explorer Version gefunden")
  183. (set #filethere2 " at ")
  184. (set #filethere3 "\n\nDie Datei wird umbenannt in ")
  185. (set #filethere4 " und wird dann verschoben nach ")
  186. (set #backuptoXXX "sichern als Datei 'Diz-Explorer.")
  187. (set #copyover "alte Version überschreiben")
  188. (set #oktodelete1 "\nSind Sie damit einverstanden, daß das alte Diz-Explorer Hauptprogramm gelöscht, so daß das Explorer Verzeichnis erstellt werden kann?\n")
  189. (set #oktodelete2 "\nSind Sie damit einverstanden, daß das alte _umbenannte_ Explorer Hauptprogramm gelöscht wird, so daß das Explorer Verzeichnis erstellt werden kann?\n")
  190. (set #Explorerfound "\nDas Installationsprogramm hat bereits eine installierte Explorer Version gefunden. Was wollen Sie tun?\n")
  191. (set #newicon "\nWollen Sie das Diz-Explorer Piktogramm aus dem Archiv übernehmen? Wenn Sie bereits die Programmmerkmale verändert haben, wählen Sie bitte Nein.\n")
  192. (set #nonewicon  "Nein  - Programmmerkmale verändert.")
  193. (set #yesnewicon "Ja - Überschreibe das alte DIZ-Explorer Icon.")
  194. (set #whatcat "\nWählen Sie die Sprache, die installiert werden soll.\n")
  195. (set #wherecat "\nWohin wollen Sie die Explorer Sprachdatei installieren? Wird noch nicht gebraucht. Eingestellt ist ")
  196. (set #catnofind "Ich kann die passende Sprachdatei im Archiv nicht finden. Wird noch nicht gebraucht.")
  197. (set #whatdocs "\nWelche Anleitung zum Explorer wollen Sie installieren ?\n")
  198. (set #wheredocs "Wohin wollen Sie die gewählte Anleitung kopieren?")
  199. (set #byebye (cat "\nDie DIZ-Explorer Installation wurde erfolgreich abgeschlossen!""\n\nViel Spaß beim Entdizzen...\n\n" ))
  200. (set #setup_help
  201.         (cat
  202.             "Der Explorer braucht ein Assign um richtig arbeiten "
  203.             "zu können. Wenn Sie jetzt abbrechen müssen Sie später "
  204.             "diese Einträge manuell in der User-StartUp vornehmen "
  205.             "oder im Shell ein Assign herstellen um mit dem Explorer "
  206.                         "arbeiten zu können. "
  207.         )
  208.     )
  209.  
  210. ;***********************************************************************
  211. ; The Italiano Installation Strings for the Diz-Explorer
  212. ;***********************************************************************
  213. ;(set #setup1
  214. ;    (cat
  215. ;        "Per preparare l'ambiente del Explorer DEVO modificare la tua "
  216. ;        "User-StartUp aggiungendo i seguenti comandi:\n\n"
  217. ;    )
  218. ;)
  219. ;
  220. ;(set #setup2    "Se salti questo passo DOVRAI inserirli manualmente più tardi.")
  221. ;
  222. ;(set #setup_help
  223. ;    (cat
  224. ;        "Explorer necessita di un assegnamento alla sua directory "
  225. ;        "principale al fine di funzionare correttamente. Se "
  226. ;        "salti questo passo DOVRAI inserirlo manualmente nella "
  227. ;        "tua User-StartUp o in una shell prima di eseguire il Explorer."
  228. ;    )
  229. ;)
  230. ;
  231. ;Please make your own Strings for the installation...  Si! I will do it!
  232. ;
  233. ;and send it to me...
  234. ;
  235. ;***********************************************************************
  236. ; The Francais Installation Strings for the Diz-Explorer
  237. ;***********************************************************************
  238. ;
  239. ;Please make your own Strings for the installation..  Qui! je vais le faire!
  240. ;
  241. ;and send it to me...
  242. ;
  243. ;***********************************************************************
  244. ; The Svenska Installation Strings for the Diz-Explorer
  245. ;***********************************************************************
  246. ;
  247. ;Please make your own Strings for the installation...  Yo! I will do it!
  248. ;
  249. ;and send it to me...
  250. ;
  251. ;***********************************************************************
  252. ; The Norsk Installation Strings for the Diz-Explorer
  253. ;***********************************************************************
  254. ;
  255. ;Please make your own Strings for the installation...  Yo! I will do it!
  256. ;
  257. ;and send it to me...
  258. ;
  259. ;***********************************************************************
  260. ; The Nederlands Installation Strings for the Diz-Explorer
  261. ;***********************************************************************
  262. ;
  263. ;Please make your own Strings for the installation...  Yo! Ick do dat!
  264. ;
  265. ;and send it to me...
  266. ;
  267. ;***********************************************************************
  268. ; The Dansk Installation Strings for the Diz-Explorer
  269. ;***********************************************************************
  270. ;
  271. ;Please make your own Strings for the installation...  Yo! I will do it!
  272. ;
  273. ;and send it to me...
  274. ;
  275.  
  276. )
  277. )
  278.  
  279. ;***********************************************************************
  280. ; Tach Mädelz and Jungz !
  281. ;***********************************************************************
  282. (message #about)
  283. (welcome) 
  284. (message #about2)
  285. (welcome) 
  286. (message #about3)
  287. (welcome) 
  288. ;********************************************************************
  289. ; Checking the CPU - Hello CPU are you there???
  290. ;********************************************************************
  291.   (set cpu (database "cpu"))
  292. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  293. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  294. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  295. (if (= @installer-version 0)
  296.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  297.   (if (= cpu 68060) (set #cpu 1))
  298.   (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 2) )
  299.   (if (= cpu 68060) (set #cpu 1))
  300. )
  301.  
  302. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060" "PC603 or PC604")
  303.             (prompt #askcpu)
  304.                     (help   #askcpu2)
  305.                   (default #cpu)
  306.       )
  307. )
  308.  
  309. (if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040")) (if (= cpuPick 2) (set cpuadd ".ppc"))
  310.  
  311. ;***********************************************************************
  312. ; Ask where to put the DIZ-EXPLORER & Make a new directory if needed
  313. ;***********************************************************************
  314. (set Explorerdir  (askdir (prompt #whereExplorer)
  315.                 (help   #whereExplorer)
  316.                      (default "SYS:")
  317.                )  
  318. )
  319.  
  320. (set where Explorerdir)
  321.  
  322. ;***********************************************************************
  323. ; Check to see if the DIZ-EXPLORER is already there, if so ask to backup
  324. ;***********************************************************************
  325. (if (= 1 (exists (tackon where "Explorer") ) ) 
  326.   (
  327.     (set vernum1 (getversion (tackon where "Explorer") ))
  328.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  329.     (set Explorer_old (cat ver1 "." rev1))
  330.  
  331.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  332.                   (cat "Explorer" Explorer_old) #filethere4 (tackon Explorerdir "Explorer") )
  333.     )
  334.     
  335.  
  336.     (copyfiles (source (tackon where "Explorer"))
  337.                (dest where) 
  338.                (infos)
  339.                (newname (cat "Explorer." Explorer_old))
  340.     )
  341.     
  342.     (delete (tackon Explorerdir "Explorer") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  343.  
  344.     (if (< (exists (tackon Explorerdir "Explorer")) 2) (makedir (tackon Explorerdir "Explorer") (infos)) )    
  345.  
  346.     (copyfiles (source (tackon where (cat "Explorer." Explorer_old) ))
  347.                        (dest (tackon Explorerdir "Explorer")) 
  348.                        (infos)
  349.                
  350.     )
  351.  
  352.     (delete (tackon where (cat "Explorer" Explorer_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  353.  
  354.     ;(set firsttime 1)
  355.  
  356.   )
  357. )
  358.  
  359. (if (< (exists (tackon Explorerdir "Explorer")) 2) (makedir (tackon Explorerdir "Explorer") (infos)) )
  360. (set where (tackon Explorerdir "Explorer"))
  361. (set @default-dest where)
  362.  
  363. ;********************************************************************
  364. ; Check for the old one and backup it or not...
  365. ;********************************************************************
  366. (if (exists (tackon where "Explorer")) 
  367.   (
  368.       (set vernum1 (getversion (tackon where "Explorer") ))
  369.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  370.       (set Explorer_old (cat ver1 "x." rev1))
  371.  
  372.       (set keeper  (askchoice (choices  (cat #backuptoXXX Explorer_old "'")  #copyover)
  373.                      (prompt #Explorerfound)
  374.                  (help   #Explorerfound)
  375.                      (default 0)
  376.                )
  377.       )    
  378.  
  379.  
  380.       (if (= keeper 0)
  381.          (copyfiles (source (tackon where "Explorer"))
  382.                      (dest where) 
  383.                      (infos)
  384.                      (newname (cat "Explorer" Explorer_old))
  385.          )
  386.       )          
  387.  
  388.       (set firsttime 1)
  389.     
  390.   )
  391. )
  392.  
  393. ;********************************************************************
  394. ; Copy over the old Explorer file and Icon if wanted (Sure!)
  395. ;********************************************************************
  396. (copyfiles (source "Explorer") (dest where) (optional "nofail") )
  397. (copyfiles (source "RAM:EXPLORER/Explorer.key") (dest where)  (optional "nofail") )
  398. (copyfiles (source "RAM:EXPLORER/Explorer.logo") (dest where)  (optional "nofail") )
  399. (copyfiles (source "RAM:EXPLORER/Explorer.prefs") (dest where)  (optional "nofail") )
  400.  
  401. (if (= firsttime 0)  (copyfiles (source "Explorer.info") (dest where) (optional "nofail") ) )
  402.  
  403.  
  404. (if (OR (= keeper 0) (= (exists (tackon where "Explorer.info")) 0))
  405.   (
  406.   
  407.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  408.                            (prompt #newicon)
  409.                        (help   #newicon)
  410.                            (default 0)
  411.             )
  412.    )
  413.   
  414.    (if (= newicon 0) 
  415.      (copyfiles (source "Explorer.info") (dest where)  (optional "nofail") )
  416.    )
  417.  
  418.   )
  419.  
  420. )
  421.  
  422. ;********************************************************************
  423. ; Select and copy the packers to the C-Directory...     Goil
  424. ;********************************************************************
  425. (message #aboutpacker)
  426.   ((makedir (tackon Explorerdir "Explorer/Extras") (infos) )) 
  427.   ((makedir (tackon Explorerdir "Explorer/HTML") (infos) ) 
  428.  
  429.     (copyfiles
  430.       (prompt "Copying the packers")
  431.       (source "ram:explorer/c")
  432.       (all)
  433.       (dest "c:")
  434.       (confirm)
  435.       (help 
  436.         "This will copy the packers to the >C< directory. "
  437.         "If you copy it to the SYS:c directory, it will not check if there are newer versions! "
  438.         "But normally these are the right versions for you... "
  439.       )
  440.     )
  441. )
  442.  
  443. ;********************************************************************
  444. ; Checking the Directories for viruses - Oh no... 
  445. ;********************************************************************
  446.    (if (exists "c:lhacheck")
  447. (message #aboutlhacheck))
  448. (set dataver (/ (getversion "LIBS:datatypes.library") 65536))
  449. (if (= dataver 45.4) (message #aboutdatatype1))
  450.  
  451. ;********************************************************************
  452. ; Select and copy the devices to the Devs-Directory...   Joh Mann!  
  453. ;********************************************************************
  454. (message #aboutdevices)
  455.  
  456.   (
  457.     (copyfiles
  458.       (prompt "Copying the FMS- and DMS-Device")
  459.       (source "ram:explorer/devs")
  460.       (all)
  461.       (dest "devs:")
  462.       (confirm)
  463.       (help 
  464.         "This will copy the FMS- and the DMS-device to the >DEVS< directory. "
  465.         "If you copy it to the SYS:Devs directory, it will not check if there are newer versions! "
  466.         "But normally these are the right versions for you... "
  467.       )
  468.     )
  469. )
  470.  
  471. ;********************************************************************
  472. ; Ask and copy the documentations if wanted! Do it...
  473. ;********************************************************************
  474. (set docs (askoptions (choices " Explorer.guide" " Explorer_Short.guide" " Example-Amiga.list" " Example-PC.list")
  475.               (prompt #whatdocs)
  476.                       (help #whatdocs)
  477.       )
  478. )
  479.  
  480. (if (<> docs 0)
  481.  (
  482.    (set docsdir (askdir (prompt #wheredocs)
  483.                (help   #wheredocs)
  484.                     (default where)
  485.                 )  
  486.    )
  487.    (copyfiles (source "Ram:Explorer/Extras") (dest (tackon where "Extras")) (all))
  488.    (copyfiles (source "Ram:Explorer/html") (dest (tackon where "HTML")) (all))
  489.    (if (IN docs 0) (copyfiles (source "Explorer.guide") (dest docsdir) (infos) (optional "nofail") ) )
  490.    (if (IN docs 0) (copyfiles (source "Explorer_short.guide") (dest docsdir) (infos) (optional "nofail") ) )
  491.    (run (cat "run SYS:utilities/AmigaGuide ram:explorer/explorer_short.guide") )
  492.  
  493.  )
  494.  
  495. )
  496. ;********************************************************************
  497. ; Modify User-Startup   - Wow! It work`s...
  498. ;********************************************************************
  499. (set #setup1
  500.         (cat "\n\n\nTo get the Explorer work right there has to be made "
  501.         "some changes to your User-Startup !\n\n"
  502.         command1
  503.         )
  504. )
  505.  
  506. (if (= @language "deutsch") (
  507.  
  508. (set #setup1
  509.         (cat "\n\n\nUm mit Explorer richtig arbeiten zu können, muß "
  510.         "eine Änderung an der User-Startup vorgenommen werden.\n\n"
  511.         command1
  512.         )
  513. )
  514. ))
  515. (set #setup2
  516.         (cat
  517.             "If you skip this pass you MUST manually enter "
  518.             "it later."
  519.         )
  520.     )
  521.  
  522. (if (= @language "deutsch") (
  523.  
  524. (set #setup2
  525.         (cat
  526.             "Wenn Sie jetzt abrechen, müßen sie später die Änderung "
  527.             "manuell vornehmen !"
  528.         )
  529.     )
  530. ))
  531.  
  532. (startup "Explorer"
  533.         (prompt
  534.             (cat
  535.                 #setup1
  536.                 "Assign Explorer: \"" @default-dest "\"\n"
  537.                 "Path Explorer: ADD\n\n"
  538.                 #setup2
  539.             )
  540.         )
  541.         (help #setup_help)
  542.         (command
  543.             "Assign Explorer: \"" @default-dest "\"\n"
  544.             "Path Explorer: ADD\n"
  545.         )
  546.     )
  547.  
  548.  
  549. (working "\nDeleteing temporary files.")
  550. (run "Delete RAM:Explorer ALL FORCE QUIET")
  551. (run "Delete RAM:Explorer/c ALL FORCE QUIET")
  552. (run "Delete RAM:Explorer.info ALL FORCE QUIET")
  553.  
  554. (set #endnow (cat "Installation of Explorer completed.\n"
  555.     "When the lines:\n" command1 "\ndoesn`t appear "
  556.     "in your Startup-Sequence or User-Startup, "
  557.     "please do it manually.\n\n"
  558.     "Best wishes...\n\n"
  559.     "Jochen Grus & Martin Gentile"
  560.     ))
  561.  
  562. (if (= @language "deutsch") (
  563.  
  564.     (set #endnow (cat "\nInstallation von Explorer beendet.\n\n"
  565.         "Falls die Zeilen:\n" #setup1 "\nnicht in Ihre Startup-Sequence bzw. "
  566.         "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  567.         "\n\nWir wünschen ihnen viel Erfolg mit den Explorer!\n\n"
  568.         "Jochen Grus & Martin Gentile"
  569.     ))
  570. ))
  571.  
  572. ;********************************************************************************
  573. ; Ende - Bye - Fin - Finito - Fuck i must go now - see u in the next whisky bar. 
  574. ;********************************************************************************
  575.  
  576. (procedure Explor (set JOH 1) ( (while (< JOH 4444)  (set JOH (+ JOH 1)) )  ) )
  577.  
  578. (procedure InformX
  579. (working (cat "\n\n"
  580.               " LHA  TAR\n"
  581.               " LZX  TGZ\n"
  582.               " DMS  EXE\n"
  583.               " ARJ  SIT\n"
  584.               " ARC  LZH\n"
  585.               " ZOO  RAR\n"
  586.               " ZIP  LZ\n"
  587.               " \n"
  588.          )           
  589. )
  590. )
  591. (procedure InformY
  592. (working (cat "\n\n"
  593.               "\n"
  594.               "\n"
  595.               "Diz-Explorer Pro Version 5.00\n"
  596.               "\n"
  597.               "by\n"
  598.               "\n"
  599.               "   Jochen Grus & Martin Gentile   \n"
  600.               "\n"
  601.          )           
  602. )
  603. )
  604. (InformY)
  605.  
  606. (Explor)(Explor)
  607. (InformX)(Explor)
  608. (InformY)(Explor) (InformX)(Explor)
  609. (InformY)(Explor) (InformX)(Explor)
  610. (InformY)(Explor) (InformX)(Explor)
  611. (InformY)(Explor) (InformX)(Explor)
  612. (InformY)(Explor) (InformX)(Explor)
  613. (InformY)(Explor) (InformX)(Explor)
  614. (InformY)(Explor) (InformX)(Explor)
  615. (InformY)(Explor) (Explor) (Explor)
  616.  
  617. (exit #byebye)
  618.